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FOREWORD 


The  work  reported  here  was  performed  at  Bolt  Beranek  and 
Newman  Inc  In  Cambridge,  Massachusetts  for  the  Advanced 
Research  Projects  Agency  under  Contract  No.  AF  19(628) -506fu 


THE  BBN-LISP  SYSTEM 


ABSTRACT 

This  report  describes  in  detail  the  BBN-LISP  system.  This 
LISP  system  has  a  number  of  unique  features;  most  notably, 
it  has  a  small  core  memory,  and  utilizes  a  drum  for  storage 
of  list  structure.  The  paging  techniques  described  here 
allow  utilization  of  this  large,  but  slow,  drum  memory  with 
a  surprisingly  small  time  penalty.  These  techniques  are 
applicable  to  the  design  of  efficient  list  processing  systems 
embedded  in  time-sharing  systems  using  paging  for  memory 
allocation. 
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SECTION  I. 


INTRODUCTION 

LISP  is  a  highly  sophisticated  list-processing  language  which 
is  being  used  extensively  in  the  artificial  intelligence  re¬ 
search  program  at  Bolt  Beranek  and  Newman.  This  report 
describes  our  LISP  system,  which  has  a  number  of  unique 
features.  Ideally,  a  LISP  system  would  have  a  very  large, 
fast,  random-access  memory.  However,  magnetic  core  memory 
(the  only  large  scale  random- access  memory  available)  Is 
very  expensive  relative  to  serial  memory  devices  such  as 
magnetic  drums  or  discs.  Since  average  access  time  to  a 
word  on  a  drum  or  disc  is  approximately  1000  times  slov/er 
than  access  to  a  word  in  a  core  memory,  using  a  drum  as  a 
simple  extension  of  core  memory  would  reduce  the  operating 
speed  of  a  system  by  a  factor  of  1000. 

We  have  developed  a  special  paging  technique  which  allows 
utilization  of  a  drum  for  storage  with  a  much  smaller  time 
penalty.  This  technique  allows  us  to  make  effective  use  of 
a  LISP  system  on  our  PDP-1  which  has  only  8392  l8-bit  words 
of  5  microsecond  core  memory  and  92,312  words  on  a  drum 
with  an  average  access  time  of  16„5  milliseconds.  In  addi¬ 
tion,  the  techniques  reported  here  would  improve  the  speed 
of  operation  of  LISP  systems  embedded  in  time-sharing 
systems  using  paging  for  memory  allocation.  In  these  time¬ 
sharing  systems  the  user  is  allocated  only  a  small  portion 
of  core  memory  at  any  time,  although  his  program  can  address 
a  large  virtual  memory.  The  portion  of  his  data  structure 
and/or  program  not  in  core  is  kept  in  a  slower  secondary 


1-1 


storage  medium  such  as  a  drum  or  disc.  Thus,  to  the  user  it 
is  very  similar  to  the  situation  on  our  PDP-1,  except  that  a 
hardware  mechanism  makes  the  program  transparent  to  the 
medium  of  storage  of  any  page  of  his  program. 

Section  II  of  this  report  describes  the  internal  structure 
of  the  EBN-LISP  system,  and  the  mechanisms  used  to  facili¬ 
tate  fast  use  of  drum  storage.  Section  III  describes  the 
LISP  functions  which  are  built  into  the  basic  system.  Sec¬ 
tion  IV  contains  listings  of  those  functions  which  are 
defined  in  LISP. 

Although  we  have  tried  to  be  as  clear  and  complete  as  poss¬ 
ible,  this  document  is  not  designed  to  be  an  introduction  to 
LISP.  Therefore  some  parts  may  be  clear  only  to  people  who 
have  had  some  experience  with  other  LISP  systems. 


1 

I 

I 

I 

I 


SECTION  II 


TOE  INTERNAL  STRUCTURE  OP 
THE  BB1J-LISP  SYSTEM 

The  BBN-LISP  System  uses  only  a  small  core  memory,  but  achieves 
a  large  memory  capacity  by  utilizing  a  drum.  This  drum  is 
used  in  three  ways.  First,  the  working  program  is  divided  into 
three  overlays,  the  read  and  print  (input- output)  program,  the 
garbage  collector,  and  the  interpreter  of  S- express ions.  Only 
one  of  these  overlays  is  in  core  at  any  time,  although  a  number 
of  sub-programs  common  to  all  three  remain  in  core  at  all  times. 

Secondly,  the  drum  contains  a  large  push-down  list  for  use  in 
running  recursive  programs.  This  push-down  list  is  double- 
buffered;  that  is,  the  section  of  the  push-down  list  used  most 
recently  is  in  core  and  the  section  used  immediately  preceding 
this  section  is  also  there,  so  that  traveling  between  buffers 
doe3  not  necessitate  a  drum  reference. 

The  third  way  of  utilizing  this  large  secondary  store,  the  drum, 
is  for  storage  of  list  structure.  If  the  entire  remaining  drum 
storage  was  used  simply  as  an  extension  of  core  memory,  cn 
access  to  the  drum  would  be  needed  each  time  a  new  list  element 
was  referenced;  and  LISP  would  be  reduced  to  operating  at  drum 
rotation  speed.  Instead,  the  drum  storage  of  list  structure  is 
divided  into  pages,  Each  page  is  currently  2$8  words  (decimal); 
and  each  page  contains  its  own  free  storage  list.  The  cons 
algorithm,  for  constructing  a  new  list  element,  works  as  follows. 
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To  construct  z  *  cons  [x;y]: 


1)  If  ^  is  not  an  atom,  and  there  is  room  on  the  page 
with^,  then  place  z  on  this  page 

2)  Otherwise,  if  x  is  not  an  atom,  and  there  is  room 
on  the  page  with  xT  put  z  on  that  page 

3)  Otherwise,  place  z  on  the  page  in  core  with  maximum 
free  storage . 

This  algorithm  tends  to  minimize  cross  linkages  between  pages 
and  to  limit  any  single  structure  to  a  very  few  pages.  Thus 
when  working  with  this  structure,  it  is  unlikely  that  one  will 
make  references  to  more  than  a  few  pages  for  a  relatively  long 
period  of  time.  Since  these  pages  can  reside  in  core,  no  drum 
references  are  needed.  Fcr  example,  in  entering  the  definition 
of  a  function,  the  entire  definition  tends  to  appear  on  a  single 
pag?.  *Rius,  during  the  interpretation  of  a  function,  multiple 
drum  references  are  usually  unnecessary. 

Although  we  have  not  yet  run  this  LISP  system  on  a  large  problem 
where  we  can  make  a  reasonable  tuning  comparison,  we  can  give 
the  following  anecdotal  evidence  for  the  increase  in  speed  due 
to  this  naging  system.  The  run  light  on  the  PDP-1  goes  off  when 
a  drum  swap  is  taking  place.  In  an  older  version  of  PTP-i  LISP 
the  drum  was  treated  as  an  extension  of  core  memory.  When  any 
problem  was  run,  the  run  .ight  seemed  to  go  off  completely,  in¬ 
dicating  thet  the  machine  was  spending  almost  all  of  its  time 
doing  dram  transfers.  In  this  system,  however,  the  run  light 
seems  to  bum  as  brightly  as  the  rest,  indicating  that  relatively 
few  drum  transfer  operations  occur  except  when  going  between  the 
three  overlay  packages,  that  is,  when  going  from  input  and  out¬ 
put  back  to  the  interpreter  or  going  into  a  garbage  collection. 
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On  the  research  computer,  because  of  the  drum  storage,  we 
currently  have  In  use  an  effective  free  storage  list  of  approx¬ 
imately  25,000  LISP  words,  i.e.,  double  word  pairs  (pointers). 

Each  LISP  word  is,  of  course,  two  18* bit  PDP-1  words.  In  the 
extended  version  of  LISP  that  will  be  used  on  the  hospital 
system  we  will  have  256,000  LISP  words  for  free  storage. 

’ISiere  are  a  number  of  differences  between  this  system  and  7094 
LISP  aside  from  the  storage  conventions.  For  example,  the  value 
of  a  variable  is  stored  in  a  special  value  cell  for  that  variable, 
that  is,  as  car  of  the  atom  name.  An  atom  is  distinguished  by 
its  address,  which  is  located  in  a  fixed  region  of  virtual 
memory  space.  Thus  one  need  not  reference  a  structure,  but  only 
look  at  its  address,  in  order  to  tell  whether  or  not  it  is  an 
atom.  If  x  is  an  atom,  then  cdr(x)  is  the  property  list  of  the 
atom,  as  in  7094  LISP.  However,  the  pr-’nt  name  of  the  atom  is 
not  to  be  found  on  this  property  list.  ISie  user  can  only  get 
at  the  print  name  with  the  ins t met ions  pack  and  unpack.  Sim¬ 
ilarly,  the  definition  of  an  atom  as  a  function  is  hidden  away 
from  the  user  in  a  special  cell  associated  with  the  atom  name. 

Two  functions,  getd(x]  and  putd(x;def]  are  used  to  get  the  def¬ 
inition  of  a  function,  and  place  the  definition  in  the  function 
cell  of  ar.  atom,  respectively.  The  value  of  getd[x)  on  an  atom 
defined  as  a  machine  language  subroutine  lo  a  numerical  constant 
which  be>*rs  some  relationship  to  the  instruction  that  must  be 
executed  to  obtain  access  to  the  subroutine. 

When  a  new  function  is  entered,  the  old  values  of  its  variables 
are  pushed  down  on  the  push-down  list,  and  the  current  values 
are  stoi'ed  in  the  value  cells.  Since  the  current  value  of  any 


variable  is  always  to  be  found  in  its  value  cell,  free  variables 
are  no  problem.  However,  there  is  the  usual  anomalous  case  of 
conflicting  free  variables  in  functional  arguments.  This  can 
be  circumvented  by  using  sufficiently  unique  variable  names. 

Because  of  the  way  variable  values  are  stored,  the  main  inter¬ 
preter,  eval,  obviously  does  not  use  an  A-list,  and  is  therefore 
a  function  of  only  one  argument.  The  function  evala  defined 
in  the  BBN-LISP  System  will  simulate  the  effect  of  the  usual 
eval[x;a],  a  being  an  A-list. 

Different  LISP  systems  employ  different  methods  to  achieve  the 
following  two  effects  in  functions  labelled  FEXPR!  s  in  7094  LISP. 
These  two  effects  are  (1)  giving  a  function  the  ability  to  have 
an  indefinite  number  of  arguments,  and  (2)  giving  a  function  the 
ability  to  receive  its  arguments  unevaluated. 

On  the  7094  anFEXPR  is  defined  by  putting  the  function  definition 
on  the  property  list  after  the  flag,  FEXPR,  and  treating  it  as 
a  special  case  in  the  interpreter.  In  BBN-LISP  we  call  functions 
which  have  abilities  (l)  and  (2)  FEXPR:’ s,  but  we  define  them 
differently.  The  way  anFEXPR  is  defined  in  BBN-LISP  is  as 
follows:  Instead  of  the  usual  lambdr  followed  by  a  list  of 
variables,  the  defining  form  is  preceded  by  nlamda  followed  by 
a  list  containing  a  single  variable.  When  a  function  with  an 
nlamda  is  entered,  everything  following  the  function  name  in  the 
form  to  be  evaluated  is  placed  on  a  single  list  and  becomes  the 
value  of  the  single  argument  of  this  FEXPR.  This  13  passed  to 
the  function  unevaluated.  In  order  to  evaluate  any  portion  of 
this  list,  an  explicit  call  to  eval  must  be  made.  See  "defineq" 
In  the  listings  for  an  example  of  the  use  of  this  device.  A 


third  reason  FEXPR's  and  FSUBR's  are  used  on  7094  LISP  is  to 
make  the  A-list  available  to  a  program.  However,  since 
there  is  no  A-list  in  BBN-LISP  this  will  not  concern  us  here. 

Another  major  difference  between  BBN-LISP  and  7094  LISP  is 
due  to  the  fact  that  the  7094  has  floating  point  hardware, 
and  the  PDP-1  does  not.  Any  floating  point  machinery  would 
have  to  be  interpreted  on  the  research  computer.  This  would 
be  expensive  in  both  time  and  space,  and,  therefore,  in  this 
version  of  LISP  there  is  only  integer  arithmetic.  A  compiler 
is  being  planned  for  the  PDP-1  and  will  be  described  in  a 
later  document. 
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cons[x;y] 

SUBR 


car[x] 

SUBR 


cdr[x] 

SUBR 


caar[x]  = 
SUBR 

cadr[x]  = 
SUBR 

cddddr[x] 

SUBR 


eq[x;y] 

SUBR 


DESCRIPTION  OP  FUNCTIONS  IN  BBN-LISP 


cons  constructs  a  dotted  pair  of 
x  and  If  is  a  list,  x  becomes 
the  first  element  of  that  list. 

car  gives  the  first  element  of  a 
list  x,  or  the  left  element  of  a 
dotted  pair  x.  Nominally  undefined 
for  atoms,  it  gives  the  binding 
(value)  of  an  atom  x. 

cdr  gives  the  tail  of  a  list  (all 
but  the  first  element).  This  is 
also  the  right  member-  of  a  dotted 
pair.  If  x  is  an  atom,  cdr[x] 
gives  the  property  list  of  x. 


car[car[x] ] 
car [ cdr [x] ] 


All  30  combinations  of  nested  cars 
and  cdrs  up  to  h  deep  are  included 
in  the  system. 


=  cdr[cdr[cdr[cdr[xj ] 3 ] 


The  value  of  e^  is  T  if  x  and  jjr  are 
identical  atoms,  including  numbers; 
otherwise  the  value  is  NIL.  (Will 
give  T  for  lists  if  their  Internal 
representations  are  identical,  NIL 
otherwise. ) 
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null[x] 

SUBR 


eq[x;NIL] 


atom[x] 

SUBR 


Its  value  is  T  if  x  is  an  atom; 
NIL  otherwise. 


oblistf] 

SUBR 


Gives  a  list  of  all  atoms  in  the 
system. 


not[x] 

EX?R 


Its  value  is  true  if  its  argument 
is  false,  and  false  otherwise. 


quote [x] 
FSUBR 


condTx] 

FSUBR 


This  is  a  function  that  prevents 
its  argument  from  being  evalu¬ 
ated.  Its  value  is  x  itself. 

The  argument  for  cond  is  a  list. 
Each  element  of  the  list  is  itself 
a  list  containing  n  >.  1  items: 
the  first  is  an  expression  whose 
value  may  be  false  or  true  (that 
is,  NIL,  or  anything  which  is  not 
NIL);  the  rest  may  be  any  expres¬ 
sions.  This  is  the  conditional 
expression  in  the  LISP  system. 

The  meaning  of  it  is:  if  the 
first  element  of  the  first  list 
is  true  (not  NIL),  then  the  fol¬ 
lowing  expressions  are  evaluated. 
The  value  of  the  conditional  is 
the  value  of  the  last  expression 
in  this  sublist.  If  there  is  only 
one  expression,  then  the  value  of 
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prog[l] 

FSUBR 


go[x] 

FSUBR 


list[xl; . 
FSUBR 


the  conditional  is  the  value  of 
this  expression.  This  value  co¬ 
incides  with  the  value  in  7090 
LISP  for  pairs  of  items,  but 
allows  additional  flexibility. 

If  the  first  element  of  the  first 
list  is  false  (■  NIL),  then  the 
second  sublist  is  considered,  etc. 
Thus,  the  arguments  are  searched 
until  a  first  element  of  a  list 
is  found  which  is  not  NIL.  If 
none  are  found,  the  value  of  the 
conditional  expression  is  NIL. 

This  feature  allows  the  user  to 
write  an  ALGOL-like  program  con¬ 
taining  LISP  statements  to  be 
executed.  The  argument  is  a  list, 
the  first  element  of  which  is  a 
list  of  program  variables.  The 
rest  of  the  list  is  a  sequence  of 
statements,  and  atcraic  symbols 
used  as  labels  for  transfer  points. 

go  is  the  function  used  to  cause  a 
transfer  in  prog.  (GO  A)  will 
cause  the  program  to  continue  at 
the  label  A. 

.  .;xn]  The  value  of  list  is  a  list  of 

the  values  of  its  arguments. 
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return [x] 
SUBR 


print [x] 
SUBR 


prinlfx] 

SUBR 


terpri[] 

SUBR 


return  is  the  normal  end  of  a 
prog.  Its  argument  is  evaluated 
and  is  the  value  of  the  prog  in 
which  it  appears. 

Prints  x,  followed  by  carriage 
return,  on  specified  devices 
(see  punchon,  type out) .  Value 
is  x- 

Prints  one  atom,  x,  with  no  space 
or  carriage  return  following. 
Value  is  x. 

Prints  a  carriage  return.  Value 
is  NIL. 


punchon [x] 
SUBR 


typeout[x] 

SUBR 


read [ ] 
SUBR 


punch [x] 
EXPR 


Turns  punch  on  for  print  if  x  »  T; 
turns  punch  off  if  x  =  NIL. 

Value  is  former  setting  of  punchon . 

If  x  ■  T,  turns  typewriter  on  for 
printing.  If  x  **  NIL,  turns  type¬ 
writer  off.  Value  is  former 
setting  of  type out . 

Reads  on  S-expression  from 
specified  device  (see  typein) . 

This  function  sets  punchon  to  t, 
sets  type  out  to  nil,  punches  x_, 
and  then  restores  punchon 
and  type out  to  their  original 
values. 
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type in [x] 
SUBR 


ratom[  ] 
SUBR 


setsepr [x] 
PSUBR 

setbrk[x] 

FSUBR 


If  x  ■  T  read- in  device  is  set  to 
typewriter.  If  x  «  NIL  read- in 
device  is  set  to  reader.  Value  Is 
former  setting  of  typein. 

Reads  in  one  atom  from  read- in  de¬ 
vice.  Separation  of  atoms  is  as 
defined  by  the  functions  setsepr. 
and  setbrk. 

■fliese  are  both  FSUBRS  and  may  have 
up  to  18  arguments  each.  Arguments 
should  be  octal  numbers,  e.g.,  77q 
for  carriage  return.  Characters 
defined  by  setbrk  will  delimit  atoms 
and  be  returned  as  separate  atoms 
themselves .  Characters  defined  by 
setsepr  will  not  be  returned  and 
will  serve  only  to  separate  atoms. 
For  example,  to  make  ratom  read  in 
ordinary  format,  space  (Oq),  comma 
(33q)»  and  carriage  return  (77q) 
are  separation  characters,  and  left 
paren  (57q),  right  paren  (55q),  and-' 
period  (73q)  are  break  characters. 
Thus  setsepr[Oq  33q  77q] 

setbrk[57q  55q  73ql 
would  set  up  these  characteristics. 
The  value  of  setsepr  and  of  setbrk 
is  NIL. 
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clearbuf[] 

SUBR 


This  SUBR  clears  the  input  and  output 
buffers  of  the  sequence  break  pack¬ 
age,  including  the  sequence  break 
reader,  ratom,  read,  and  type in  line 
buffers,  and  sets  the  case  to  lower 
case.  This  means  that  if  you  have 
just  done  a  read  and  the  S- express ion 
did  not  complete  a  line,  whatever 
else  is  on  that  line  will  be  lost. 
However,  it  is  very  useful  if  you 
want  to  initialize  the  system,  or  an 
error  has  been  made,  and  you  want  to 
clear  out  what  has  been  read  in  on 
a  line. 


readin[x] 

SUBR 


feed[n] 

SUBR 


If  x  =  T,  read in  sets  the  teletype 
input  to  the  paper  tape  reader. 
Specifically,  it  eliminates  the  line¬ 
feed  echo  after  a  carriage  return, 
and  the  delete  characters,  rubout 
and  colon,  are  not  recognized.  Set¬ 
ting  x  to  NIL  restores  the  status  to 
normal.  This  function  returns  its 
previous  value. 

The  value  of  n  must  be  a  number. 

This  function  outputs  on  the  teletype 
n  carriage  return- line  feeds  or  n 
carriage  returns  depending  on  the 
setting  of  read in. 
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character [n] 
SUBR 


progltxjy] 

SUBR 


prog2[x;y] 

SUBR 


progn[x;y; 

PSUBR 


set[x;y] 

SUBR 


Betq[x;y] 

F3UBR 


This  function  outputs  on  the  tele¬ 
type  a  single  character  with  octal 
representation  (code)  n.  n  must 
be  a  number. 

This  function  evaluates  both  its 
arguments  in  order,  that  is,  x 
first  and  then  and  then  returns 
the  value  of  x . 

The  purpose  of  this  function  is  to 
allow  the  evaluation  of  x,  before 
returning 

progn  is  an  PSUBR  which  evaluates 
each  of  its  arguments  in  sequence, 
and  returns  the  value  of  its  last 
argument  as  its  value.  It  is  an 
extension  of  prog2. 

This  function  sets  the  atom  which 
is  the  value  of  x,  to  the  value  of 
and  returns  the  value  of 

This  PSUBR  is  identical  to  set, 
except  that  the  first  argument  is 
quoted . 

Example:  If  the  value  of  x  is 
and  the  value  of  v  is  b,  then  set 
[x;y]  would  result  in  js  having 
value  b,  and  b  returned.  setq(x;y] 
would  result  in  x  having  value  b, 
and  b  returned.  The  value  of  jjr  la 
unaffected. 
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setn[x;y]  setn  requires  and  checks  for  an  atom 

SUBR  as  the  value  of  the  first  argument, 

and  a  number  as  the  second.  If  the 
first  argument  is  not  already  de¬ 
fined  as  a  number,  the  value  of  the 
second  will  be  moved  to  a  new  cell 
in  FWS  (Pull  Word  Space),  the  loca¬ 
tion  of  which  will  be  stored  in  the 
value  cell  of  the  first  argument. 
Otherwise,  setn  replaces  the  FWS  cell 
containing  the  previous  numeric 
value  of  the  first  argument  by  the 
numeric  value  of  the  second.  If  the 
second  argument  was  the  most  recent 
number  added  to  FWS,  the  cell  con¬ 
taining  its  value  is  returned  to  the 
free  list. 

Example: 

(SETN  (QUOTE  P)  (PLUS  P  l)) 
creates  a  new  cell  in  FWS  containing 
the  old  value  of  P  plus  1.  This 
value  gets  moved  to  the  FWS  cell  con¬ 
taining  the  old  value. 

The  following  will  lose: 

(PRoG  ..  (SET  (QUOTE  A)  B) 

(SETN  (QUOTE  A)  (PLUS  A  l))  ...) 
because  the  cell  containing  the  value 
of  A  is  the  same  as  that  for  B.  To 
avoid  the  problem,  the  first  SET 
should  have  been  a  SETOJ  so  that  a 
unique  numeric  value  cell  would  have 
been  assigned  for  A. 
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* 


setqqCx; 3 


setnq[x;y] 

FEXPR 


putd[x;y] 

SUBR 


putdq[x;y] 

PEXPR 


getd[x] 

SUBR 


fntyp[x] 

SUBR 


evalCx] 

SUBR 


Identical  to  setq  except  that  neither 
argument  is  evaluated. 

This  PEXPR  is  identical  to  setn 
except  that  the  first  argument  is 
quoted . 

putd  places  the  value  of  jjr  into  the 
function  cell  of  the  atom  which  is 
the  value  of  x.  This  is  the  basic 
way  of  defining  functions,  putd  is 
mnemonic  for  put  definition  on  x. 

ww mm*  mtm  9mm 

Value  of  putd  is  the  definition 
(value  of  2) • 

This  function  is  similar  to  putd. 
but  both  arguments  are  considered 
quoted,  and  its  value  is  x. 

This  function  gets  the  definition 
of  the  function  whose  name  is  the 
value  of  x.  If  x  is  not  a  defined 
function,  the  value  of  getdlx]  is 
NIL;  if  X  is  a  SUBR  or  FSUBR,  the 
value  is  a  number. 

This  function  gives  EXPR,  PEXPR, 

SUBR,  FSUBR  or  NIL  depending  on 
whether  x  is  an  EXPR,  FEXPR,  SUBR, 
FSUBR  or  not  defined,  respectively. 

eval  evaluates  the  expression  x  and 
returns  this  value. 
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errorset [ form; arg ] 
SUBR 


er3etq[xj 

FEXFR 


nlsetq[x] 

FEXPR 


error[x] 

SUBR 


quitf  ] 
SUBR 


equal(x;y] 

SUBR 


This  function  calls  aval  with  the 
value  of  form,  and  returns  with  a 
list  of  this  value  if  no  error  is 
encountered.  If  an  error  is 
encountered  on  the  call  to  eval, 
errorset  returns  with  the  value 
NIL.  If  arg  is  T,  the  message  from 
error  is  printed;  the  message  is  not 
printed  if  arg  *  NIL. 

This  PEXPR  is  defined  as 
(ERRORSET  (CAR  X)  T); 
that  is,  it  is  the  same  as  errorset 
with  the  argument  quoted  and  the 
error  flag  set  to  T. 

This  F£XPR  is  identical  to  ersetq 
except  that  the  error  flag  is  set 
to  NIL  and  the  error  comment  from 
error  will  not  be  printed  out. 

error  induces  an  error  with  mes¬ 
sage  x. 

quit  induces  a  "strong"  error,  i.e., 
will  unwind  a  program  through 
errorsets  to  the  top  levels 

the  value  of  this  function  is  T  if 
x  and  £  are  equal,  that  is,  identi¬ 
cal  S-expressions,  and  NIL  otherwise. 
It  is  as  fast  as  eg  for  a;oms. 
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andtx] 

PCUBR 


or[x] 

PSUBH 


This  function  is  an  PSUBR  and  can 
take  an  indefinite  number  of  argu¬ 
ments.  Its  value  is  T  if  none  of  its 
arguments  has  value  NIL,  and  is  NIL 
otherwise. 

or  is  also  an  FSUBR  and  may  have  an 
indefinite  number  of  arguments  (in¬ 
cluding  0).  or  has  value  NIL  if  all 
of  its  arguments  have  value  NIL, 
otherwise,  it  has  value  T. 


rdflx[x] 

EXPR 


append [x;y] 
EXPR 


If  x  is  NIL  this  function  will  try 
to  read  one  S-expression  from  the 
typewriter  with  read[];  if  no  error 
occurred  In  reading,  it  will  return 
with  list  of  the  S-expression  that  , 
was  read.  If  an  error  occurs  in 
reading,  it  returns  with  NIL.  If  x 
is  not  NIL,  it  will  attempt  to  read 
an  S-expression  and  keep  attempting 
to  read  it  until  it  gets  one  without 
an  error;  each  time  it  tries  to  read 
an  S-expression  and  gets  an  error, 
it  will  print  out  x.  in  this  case 
it  returns  with  the  1-expression 
Itself  (not  list  of  the  S-expression). 

This  function  copies  list  x  and 
appends  list  %  to  this  copy.  The 
value  is  the  combined  list. 
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nconc[x;y] 

SUBR 


nnconc[x;y] 

SUBR 


EXPR 


tconc [x;p] 
EXPR 


This  function  is  similar  to 
append ,  in  effect,  but  it  actual¬ 
ly  causes  this  effect  by  modify¬ 
ing  the  list  structure  x,  and 
making  the  last  element  in  the 
list  x  point  to  the  list  The 
value  of  nc one  is  a  pointer  to 
the  first  list  x,  but  since  this 
first  list  has  now  been  modified 
it  is  a  pointer  to  the  concate¬ 
nated  list. 

This  function  is  the  same  as 
nc  one .  nnc  one  is  used  by  the 
trace  programs  so  that  nconc  it¬ 
self  can  be  traced. 

This  function  attaches  x  to  the 
front  of  the  list  £  by  doing  an 
rplaca  and  an  rplacd. 

This  function  provides  an  effi¬ 
cient  way  for  placing  an  item  x 
at  the  end  of  a  list  £.  This 
list  is  the  first  item  on  £,  that 
is,  carfp];  cdr[p]  is  a  pointer 
to  the  last  element  in  this  list; 
x  is  placed  on  the  end  of  the 
list  by  modifying  this  structure, 
and  x  is  placed  on  the  list  as  an 
item.  The  effect  of  this  function 
is  equivalent  to  ncone[car[p] ; 
list[x]],  with  cdr[p]  updated  to 
point  to  the  last  element  of  the 
modified  list. 


III-12 


leone [x;p] 
EXPR 


last[x] 

EXPH 


length[x] 

EXPR 


prettyprint[x] 

EXPR 


prettydef [x] 
EXPR 


This  function  is  similar  to  tconc, 
except  that  in  this  case  x  is  a  list. 
An  entire  list  will  be  tacked  on  the 
end  of  car[p],and  cdr[p]  will  be 
adjusted  to  be  a  pointer  to  the  last 
element  of  this  new  combined  list. 
Both  tconc  and  leone  work  correctly- 
given  null  arguments. 

This  function  has  as  its  value  a 
pointer  to  the  last  cell  in  the  list 
x,  and  returns  NIL  if  x  is  an  atom. 

This  function  has  as  a  value  the 
length  of  the  list  x.  If  x  is  an 
atom,  it  returns  0. 

The  argument  of  prettyprint  is  a 
list  of  names  of  functions;  it 
prints  and/or  punches  (depending  on 
the  settings)  the  definitions  of 
the  named  functions  in  a  pretty 
format.  It  utilizes  the  functions 
printdef ,  endline,  and  superprint . 
This  latter  function  does  all  the 
work. 

This  function  of  one  argument  (a 
list  of  function  names)  prints  and/ 
or  punches  "(DEFINEQ",  followed  by 
the  prettyprint  listing  of  each  of 


define[x] 

EXPR 


these  functions,  followed  by  a  right 


paren. 


A  tape  punched  by 


can  be  loaded  by  the  function  load 


if  a  STOP  iB  punched  on  the  end  of 


the  tape, 
is  x. 


The  value  of 


The  argument  of  define  is  a  list. 
Each  element  of  the  list  is  itself 
a  list  containing  either  two  or 
three  items.  In  a  two- item  list 
the  first  item  of  each  element  of 
the  list  is  the  name  of  a  function 
to  be  defined,  and  the  second  item 
is  the  defining  lambda  or  nlamda 
expression.  In  a  three- item  list 
the  first  item  is  again  the  name  of 
the  function  to  be  defined.  The 
second  is  the  lambda  list  of  vari¬ 
ables  and  the  third  is  the  form  for 
the  expression.  As  an  example 
consider  the  following  two  equiva¬ 
lent  expressions  for  defining  the 
function  null. 

1)  (NULL  (LAMBDA  (X)  (EQ  X  NIL))) 

2)  (NULL  (X)  (EQ  X  NIL)) 
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defineq[x; . . .;z] 
FEXPR 


load[x] 

EXPR 


This  PEXPR  is  closely  related  to 
define .  However,  it  can  take  an 
indefinite  number  of  arguments,  and 
it  will  treat  them  literally,  as  if 
they  were  quoted .  Each  of  the  argu¬ 
ments  must  be  a  list  of  the  form 
described  as  an  element  of  the  list 
which  is  the  argument  for  define. 
Using  defineq  instead  of  define 
allows  one  to  eliminate  two  pairs 
of  parentheses  in  writing  functions 
to  be  defined  for  loading  with  the 
function  load. 

load  is  a  function  which  reads  suc¬ 
cessive  S- expressions  from  the  paper 
tape  reader,  and  evaluates  each  as 
it  is  read .  If  x  =  T,  then  load 
prints  the  value;  otherwise  it  does 
not.  load  continues  reading  S-ex- 
pressions  and  evaluating  them,  until 
it  reads  the  single  atom  STOP  fol¬ 
lowed  by  a  carriage  return,  at  which 
point  it  returns  the  value  NIL. 

Using  load  is  the  standard  way  of 
getting  functions  in  from  the  paper 
tape  reader;  it  saves  having  to 
write  sequences  of 
E(EVAL  (READ)). 
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unpack[x] 

SUBR 


pack[x] 

9.U3R 


remob  [x] 
SUBR 


member[x;y] 

SUBR 


The  argun  ont  of  unpack  Bhould  be  an 
atom.  The  value  of  unpack  is  a  list 
which  contains ,  in  order,  the  char¬ 
acters  which  make  up  the  print  name 
of  that  atom. 

The  argument  x  of  pack  must  be  a 
list  of  atoms.  The  value  of  pack  is 
a  single  atom  whose  print  name  is  a 
packed  version  of  the  print  names  of 
all  the  atoms  given  in  the  list. 

Thus 

pack[(a  be  def  g)]  *  abedefg. 

The  argument  of  remob  must  be  an 
atom.  The  effect  of  applying  remob 
to  this  atom  is  to  remove  all  trace-' 
of  this  atom  from  the  system.  ISlis 
is  a  good  way  of  reclaiming  space 
from  atoms  which  are  no  longer  needed 
but  it  is  very  dangerous*  and  remob 
should  be  used  with  cor^e.  A  future 
mention  of  the  same  atom  name  will 
have  no  connection  with  the  old  one 
that  was  formerly  there.  In  addi¬ 
tion,  any  lists  which  point  to  this 
old  atom  will  now  be  incorrect. 

This  SUBR  checks  to  see  if 
x  as  a  member  of  the  list  If  so, 
it  returns  the  value  T;  if  not,  it 
returns  the  value  NIL. 
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rplacd[x;y] 

SUBR 


rplacafxjy] 

SUBR 


gensym[  ] 
SUBR 


disp[x  &) 
SUBR 


Tills  very  dangerous  SUBR  places  in 
the  decrement  of  the  cell  pointed 
to  by  x  the  pointer  Hius  it 
changes  the  internal  list  structure 
physically,  as  opposed  to  cons  which 
creates  a  new  list  element.  This 
is  the  only  way  to  get  a  circular 
list  inside  of  LISP;  that  is  by 
placing  a  pointer  to  the  beginning 
of  a  list  in  a  spot  at  the  end  of 
the  list.  Using  this  function  care¬ 
lessly  is  one  of  the  few  ways  to 
really  clobber  the  system. 

This  SUBR  is  similar  to  rplacd,  but 
it  replaces  uhe  address  pointer  of 
x  with  £.  The  same  caveats  which 
app? led  to  using  rplacd  apply 
to  rplaca. 

This  function  of  no  argument  gener¬ 
ates  a  unique  symbol  of  the  form 
Annnn,  in  which  each  of  the  n's  is 
replaced  by  a  digit.  Thus  the  first 
one  generated  is  A  0001,  etc.  This 
is  a  way  of  generating  new  atoms  for 
various  uses  within  the  system. 

This  function  displays  one  point  on 
the  cathode  ray  tube  at  the  point 
whose  coordinates  are  ( x;y )  and  re¬ 
turns  T  if  the  light  pen  saw  the 
displayed  point,  and  NIL  otherwise. 
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di8plis[  l] 
SUBR 


iogandfx; . . ,;z] 
PSUBR 


The  argument  of  this  function  is  a 
list  of  successive  x  and  y  coordi¬ 
nates  to  be  displayed. 

For  example: 

displis[(l  2  13  14)] 

will  successively  display  the 
points  at  coordinates 
(1,2),  (1,3)  and  (l,*). 

This  is  faster  than  displaying  eaeii' 
of  these  three  points  individually 
by  using  dlsp. 

This  FSUBR  will  take  the  logical 
AMD  of  all  of  its  argument  as 
octal  numbers  and  return  this  value. 


logor[x; . . .,z] 
FSUBR 


e[x] 

FEXPR 


This  function,  an  FSUBR,  will  take 
the  logical  OR,  bit-wise,  of  all  of 
its  arguments,  and  return  this 
number 

This  FEXPR  is  defined  as  eval;  how¬ 
ever,  it  is  shorter  and  it  removes 
the  necessity  for  the  extra  pair  of 
parentheses  for  the  list  of  argu¬ 
ments  for  eval .  Thus,  when  typing 
into  evalquote  one  can  simply  type 
e  followed  by  whatever  one  would 
type  into  eval  and  have  it  evaluated. 
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r 


get[x;y] 

EXPH 


*» 

i 


trace [x] 
EXPR 

► 


t 

\ 

\ 

f 

t 


tracp[x;y] 

EXPR 


untracefx] 

EXPR 


This  function  gets  from  the  list  x 
the  item  after  the  atom  %  on  list  x. 
If  %  is  not  on  the  list  x,  this 
function  returns  NIL.  For  example, 
get[ (a  b  c  d) ;b]  »  c. 

This  function  has  as  an  argument  a 
list  of  names  of  functions.  It 
changes  the  definition  of  these 
functions  so  that  when  each  function 
is  entered,  the  values  of  the  argu¬ 
ments  of  this  function  are  printed; 
when  the  value  of  this  function  is 
computed  this  value  is  printed.  Thus, 
trace[ (plus  ratom)] 
would  cause  plus  and  ratom  to  be 
redefined  so  that  this  tracing  takes 
place.  The  value  of  trace  is  the 
value  of  its  argument  x.  The  work 
of  trace  is  done  by  the  function 
tracl. 


This  function  tells  whether  the 
function  named  x  with  definition  jr 
has  been  traced.  Its  value  is  T 
if  the  function  is  being  traced,  and 
NIL  otherwise. 

This  function  undoes  what  trace  does, 
and  restores  the  original  definition 
of  the  function. 
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mapc[x;fn] 

EXPR 


mapcar[x;fn] 

EXPR 


mapconc[x;fn] 


mapcon[x;fn] 


A  word  of  warning:  do  not  trace 
the  following  functions  or  you 
will  get  in  an  infinite  loop  be¬ 
cause  these  functions  are  used 
within  tracl  itself: 
print ;  cons ;  set;  fntyp;  eval; 
return;  evalprint ;  car;  cdr; 
null;  go. 

This  function  applies  the  function 
fn  to  each  of  the  elements  of  the 
list  x.  It  returns  the  value  NIL. 

This  function  applies  the  function 
fn  to  each  of  the  elements  of  the 
list  x.  It  creates  a  new  list 
which  is  a  map  of  the  old  list  in 
the  sense  that  each  element  of 
the  new  list  is  the  value  of 
applying  fn  to  the  corresponding 
element  of  the  old  list. 

Identical  to  mapcar  except  that 
it  does  an  nconc  Instead  of  a 
cons . 

Identical  to  maplist  except  that 
it  does  an  nc one  instead  of  a 
cons . 
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map[x;fn] 

EXPR 


maplist[x;fn3 

EXPR 


assoc [x; a) 
EXPR 


sassoc [x;y:u] 
EXPR 


copy[x] 

EXPR 


'Phis  function  applies  the  function 
fn  to  successive  tails  of  the  list  x. 
That  is,  first  it  computes  fn[x],  and 
then  fn[cdr[x]],  etc.  until  x  is 
NIL.  ThiB  function  returns  NIL. 

This  function  computes  successively 
the  same  values  that  map  computes; 
it  forms  a  new  list  consisting  of 
successive  values  of  applications  of 
this  function. 

If  a  is  a  list  of  dotted  pairs,  then 
assoc  will  produce  the  first  pair 
whose  first  item  is  x.  If  such  an 
item  is  not  found,  assoc  will  return 
NIL. 

The  function  sassoc  searches  £,  which 
is  a  list  of  dotted  pairs,  for  a 
pair  whose  first  element  is  x.  If 
such  a  pair  is  found,  the  value  of 
sasBoc  is  this  pair.  Otherwise,  the 
function  u  of  no  arguments  is  taken 
as  the  value  of  sassoc. 

This  function  makes  a  copy  of  the 
list  x.  The  value  of  copy  is  the 
location  of  the  cople  list. 
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intersection[ x; y ] 
EXPH 


union!!  x;y] 
EXPR 


prop[x;y;u] 

EXPR 


reversefl] 

EXPR 


aubat[x;y;z j 
EXPR 


This  function  returns  with  a  list 
whose  elements  were  members  of  both 
lists  x  and 

This  function  is  entered  with  two 
lists.  It  returns  with  a  list  con¬ 
sisting  of  all  elements  Included  on 
either  of  the  two  original  lists. 

If  the  same  item  is  a  member  of  both 
original  lists,  it  is  included  only 
once  on  the  new  list. 

The  function  prop  searches  the  list 
x  for  an  item  that  Is  equal  to  jr* 

If  such  an  element  is  found,  the 
value  of  prop  is  the  rest  of  the  list 
beginning  immediately  after  that 
element.  Otherwise,  the  value  is 
u[],  where  u  le'B  function  of  no 
arguments . 


This  is  a  function  to  reverse  the 
top  level  of  a  list*.  wing 

reverse  on 

( A  B  (  C  D) )  -  ( ( C  D)  B  A) 

This  function  gives  the  result  of 
substituting  the  S- express ion  x  for 
all  occurrences  of  the  atomic  symbol 
2  in  the  S~ express ion  z. 
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sublis[x;yj 

EXPR 


evala[x;a] 
SUBR  ' 


apply [fnjargs ;a] 
SUBR 


remove [x;l] 
EXPR 


remprop[x;y] 

EXPR 


put [x;y; z] 
EXPR 


Here  x  is  a  list  of  pairs: 

((urvl)  (u2‘v2)  (un’vn)) 

The  value  of  sublisfxjy]  is  the 
results  of  substituting  each  v 
for  the  corresponding  u  in  y. 

This  is  the  regular  eval  in  the 
709^  LISP.  Its  first  argument  is 
a  form  which  is  evaluated  by  using 
the  values  obtained  from  a,  a  list 
of  dotted  pairs.  That  is,  any 
variables  appearing  in  x  that  also 
appear  on  a  will  be  given  the 
value  indicated  on  a. 

apply  applies  the  function  fn  to 
the  arguments  args  with  the  values 
obtained  from  a,  i.e.  the  argu¬ 
ments  of  fn  on  args  are  not  evalu¬ 
ated  but  given  to  fn  directly, 
a  is  used  to  evaluate  free  vari¬ 
ables  in  fn  as  described  above. 

The  function  remove  removes  all 
occurrences  of  x  from  list  1. 

This  function  removes  all  occur¬ 
rences  of  the  property  with  label 
y  from  the  property  list  of  x. 

This  function  puts  on  the  property 
list  of  x,  the  label  y  followed  by 
the  property  z.  The  current  value 
of  z  replaces  any  previous  value 
of  z  with  label  y  on  this  property 
list. 


HI-23 


add[x;y;z] 

EXPR 


getp[x;y] 

EXPR 


deflist[x;ind] 

EXPR 


This  function  adds  the  value  £  to 
the  list  appearing  under  the  prop- 
erty  %  on  the  atom  x.  If  x  does 
not  have  a  property  £,  the  effect 
is  the  same  as  put [x;y; list [ z] ] . 

This  function  gets  the  property 
with  label  y  from  the  property 
list  of  x. 

NOTE:  Both  prop  and  get  may  also  be 
used  on  property  lists.  However, 
since  getp  searches  a  list  two  at 
a  time,  the  latter  allows  one  to 
have  the  seme  object  as  both  a 
property  5, id  a  value,  e.g.,  if 
the  property  list  of  x  is 
(PROP!  A  PR0P2  B  A  C) 

then  get[x;A]  «  PR0P2, 
but  getp[x;A]  «  C. 

This  function  is  used  to  put  any 
indicator  on  a  property  list.  The 
first  argument  is  a  list  of  pairs 
(where  the  first  of  the  pair  is  a 
name  and  the  second  party  of  the 
pair  is  the  property  to  be  stored 
with  the  indicator  on  the  property 
list  of  the  name)  and  the  second 
argument  is  tne  indicator  that  is 
to  be  used. 


select[x;y1;y2  . . .;yn;z] 
FSUBR 


An  example  of  arguments  for  this 
function  is: 

[q;  (Qi  e1);  (q2  e2);  ...(qn  en);  e] 
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selectq[x;y;z] 

FSUBR 


time[x  n] 
EXPR 


gcgag[x] 

SUBR 


reclaimf] 

SUBR 


field Tnl 
SUBR 


nth[x;nl 

EXPR 


The  q^s  are  evaluated  in  sequence 
until  one  is  found  such  that  q^  - 
q,  and  the  value  of  select  is  the 
value  of  the  corresponding  e^.  If 
no  such  q^  is  found  the  value  of 
select  is  that  of  e. 

selectq  is  identical  to  select  ex¬ 
cept  that  the  qi’s  are  not  evalu- 
ated--only  q. 

This  function  performs  computation 
x  n  times  and  indicates  average  time 
in  tenths  of  seconds. 

If  x=T  garbage  collector  will 
print  message  when  entered.  If 
x«NIL,  no  message  is  printed. 

This  function  initiates  a  garbage 
collection  and  returns  with  the 
number  of  available  LISP  words  in 
free  storage. 

This  function  calls  field  n  from 
the  drum.  (See  description  of 
system  program  linking.) 

This  EXPR  has  as  inputs  a  list  x 
and  a  positive  integer  n,  Its 
value  is  a  list  whose  first  element 
is  the  nth  element  of  list  x  Thus 
if  n  ■  1,  it  returns  the  list  x  it¬ 
self.  If  n  »  2,  it  returns  cdr[x] . 
If  n  «  3,  it  returns  cddr[x],  etc. 
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4 


edltf [x] 
EXPR 


editvfx] 

EXPR 


editp[x] 

EXPR 


edite[xl 

EXPR 


This  EXPR  gets  the  expression 
which  is  the  definition  of  the 
function  named  x  and  gives  it  to 
edite . 

This  EXPR  gets  the  value  of  the 
atom  x  and  gives  it  to  edite  for 
editing. 

This  EXPR  gets  the  property  list  of 
the  atom  x_,  etc. 

This  function  is  the  executive  for 
an  editing  facility  for  LISP  ex¬ 
pressions.  The  argument  of  edite 
must  be  a  list  to  be  edited.  When 
edite  has  been  called,  it  prints 
out  EDIT ,  and  then  waits  for  input 
from  the  on-line  teletype  (or  the 
reader  if  typein  is  set  to  NIL) . 

The  input  that  may  be  typed  in  may 
be  a  positive  integer,  a  negative 
integer,  or  zero,  or  one  of  these 
as  the  first  element  of  a  two- 
element  list,  or  NIL,  or  one  of 
several  special  lists  described 
below.  Typing  in  NIL  terminates 
editing. 

This  editing  program  allows  you  to 
edit  any  subexpression  within  the 
current  level  expression,  that  is, 
you  can  replace  or  delete  any  sub¬ 
expression  of  this  expression,  or 
insert  anything  before  any  subex¬ 
pression  of  this  expression.  An 


I 


1 
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input  (n  exp)  ’/here  n  is  a  positive 
integer  will  replace  the  nth  expres¬ 
sion  in  the  current  level  expression 
by  exp;  if  n  is  a  negative  integer 
it  will  put  exp  just  before  the  nth 
subexpression  in  the  current  level 
expression,  (n)  where  n  is  a  posi¬ 
tive  integer  (with  no  expression 
following  this  integer)  will  delete 
the  nth  expression. 

Warning:  Typing  "(l)",  where  current 
expression  is  a  singleton,  will  not 
have  desired  effect. 

An  input  of  0  will  take  you  up  to 
the  next  higher  level  expression. 

If  the  input  to  edit  is  a  positive 
integer,  the  nth-subexpression  of 
the  current  expression  will  become 
the  expression  that  can  be  edited. 

An  important  thing  to  note  is  that 
all  editing  is  final  in  the  sense 
that  any  changes  that  are  requested 
are  put  in  with  rplacas  and  rplacds . 
It  is  the  original  expression  which 
has  been  modified  to  give  the  edited 
version;  to  return  to  the  original 
expression  you  must  re-edit.  How¬ 
ever,  by  using  the  COPY  and  RESTORE 
feature,  the  user  can  protect  him¬ 
self  against  errors  in  editing.  The 
function  edlte  calls  edit  If ,  edlt2f, 
edit2af,  and  el  it  3f  to  do  all  the  work. 
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Other  special  commands  are: 

COPY  copies  and  saves  entire 

expression  being  edited 
as  it  currently  exists. 

RESTORE  Restores  expression  as 

of  last  copy:  the 
current  level  expression 
will  be  the  current  level 
expression  at  last  copy 
RESTORING  without  copying 
will  have  no  effect, 
p  Same  as  (p  o) . 

(p  n)  Prints  the  nth  subexpres¬ 

sion  of  the  current  ex¬ 
pression  to  a  level  of  2, 
using  LEVELN  described  be¬ 
low.  If  n  is  zero,  prints 
current  expression  to 
level  2. 

(p  n  m)  Prints  nth  subexpression 

to  a  level  m. 

All  printing  may  be  interupted. 
^  el  e2  ' * ’ ) 

which  will  tack  the  expressions 
e^  e2,  ...  to  the  end  of  the  current 

expression. 

(E  exp)  will  print  the  value  of 
eval  [exp],  ([  n  exp)  will  compute 
v  «  eval [exp]  and  then  act  as  if 
edit  were  given  (n  v)  This  allows 
you  to  insert  the  value  of  a  compu¬ 
tation  in  the  current  expression,  at 
subexpression  n.  (n  must  be  a  num¬ 
ber)  . 


(LI  n)  will  insert  a  left  parenthesis 
immediately  before  subexpression  n 
in  the  current  expression  and  a  match¬ 
ing  right  paren  at  the  end  of  this 
current  expression.  For  example,  if 
e  -  (A  B  C) 

(LI  2)  yields  (A  (B  C)). 

(LO  n)  will  remove  a  left  paren  from 
the  nth  subexpression,  and  take  a 
corresponding  right  paren  from  the 
end  of  the  current  expression,  e.g., 
for  e  -  (A  (B  C)  D) 

(LO  2)  yields  (A  B  C) 

(RO  n)  will  remove  a  right  paren 
from  the  r.th  subexpression  of  the 
current  expression,  and  insert  one 
in  at  the  end  of  the  current  top 
level  expression,  e.g., 
for  e  «  (A  (B  C)  DE) 

(RO  2)  yields  (A  (B  C  DE)) 

(RI  m  n)  will  insert  a  right  paren 
in  the  nth  subexpression  of  the  mth 
subexpression  of  the  current  expres¬ 
sion,  removing  one  from  the  end  of 
the  mth  subexpression,  e  g., 
for  e  -  (A  B  (C  D  E)  F) 

(RI  3  I)  yields 
(A  B  (C)  D  E  F) 

levelnfx  n]  Abbreviates  list  x  at  level  n>  using 

the  symbol  ampersand,  "&,M  to  indi- 
cate  greater  depth.  For  example, 
leveln  [(A  (B  C)  (n  (E  F)  0))  2]  is 
(A  (B  C)  (D  &  G)) . 
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The  following  9  functions  form  a  Break  Package  which  allows  the 
user  to  make  a  break  conditional  upon  the  result  of  some  computa¬ 
tion  and  thus  arrest  the  operation  of  a  function.  He  may  interro¬ 
gate  the  broken  function  as  to  the  current  values  of  its  arguments 
or  other  variables,  or  perform  arbitrary  LISP  computations;  then 
he  may  return  with  a  specified  value  for  it  without  actually 
entering  it.  Alternatively,  the  user  may  just  "crack"  a  function, 
i.e„,  print  out  the  result  of  some  computation  before  executing 
the  function  and  print  out  the  final  value  of  this  function. 


break[  f  n ;  when ;  v.’hat  ] 
EXPR 


unbreaktfn] 

hXPR 


break  is  a  function  of  three  argu¬ 
ments:  the  function  to  be  broken, 
under  what  condition  to  break,  and 
what  to  print  out  when  a  break  occurs 
If  when  =  T,  the  function  always 
breaks.  If  when  =  (NIL)  a  crack  is 
made  in  fn.  If  what  =  NIL,  no 
information  is  printed  out.  break 
redefines  fn  using  breakl  so  that  at 
the  time  the  function  would  have  ' 
been  entered,  breakl  is  entered 
instead  with  the  definition  of  the 
function  and  information  regarding 
the  conditions  for  breaking. 

unbreak  redefines  fn  as  it  was  before 
the  break  and  returns  the  value  fn . 

If  fn  Is  not  broken  when  unbreak  is 
called,  the  vaue  of  unbreak  Ib 
(FN  NOT  BROKEN). 
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breaklist[l] 

FEXPR 


unbrcaklist[l] 

PEXPR 


breakat [ f n; where ; when 
EXPR 


unbreakat [ f n ; where ] 
EXPR 


breakprog[fn;l] 

EXPR 


breakllst  is  a  function  of  one  argu¬ 
ment,  a  list  of  function  names.  It 
performs  (BREAK  FN  T  NIL)  for  each 
function  name  and  returns  the  list 
of  values  of  break.  Note  that 
(BREAK  FN  T  NIL)  will  cause  fn  always 
to  break,  and  will  not  print  out 
any  special  message. 

This  function  performs  (UNBREAK  FN) 
for  each  function  on  the  list  1. 

what]  This  function  is  similar  to  break 
except  that  instead  of  inserting  a 
break  at  the  beginning  of  fn,  it 
allows  the  user  to  insert  a  break 
at  any  top-level  place  in  fn.  Ihe 
argument  where  indicates  the  label 
or  statement  at  which  the  break  is 
to  occur.  The  other  arguments  are 
used  as  in  break. 

This  function  removes  a  break  in¬ 
serted  by  breakat . 

breakprog  is  entered  with  the  name 
of  a  function  and  a  list  of  places  . 
in  that  function  where  a  break  is 
desired,  breakprog  performs 
(BREAKAT  FN  WHERE  T  NIL)  for  each 
place  on  the  list  1. 
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unbreakprog[fn] 

EXPR 


breakl [form; when 
FEXPR 


This  function  performs 
(UNBREAKAT  FN  WHERE) 
for  each  place  where  a  break 
exists  in  fn. 

fnjwhat]  Although  this  function  is  not 

entered  directly  by  the  user,  it  is 
the  heart  of  all  the  break  functions 
and  is  entered  when  a  break  occurs. 
After  the  specified  information  is 
printed  out,  breakl  listens  to  the 
typewriter  or  teletype  for  inputs . 

If  STOP  is  input,  a  normal, 
exit  is  achieved.  If  RETURN  FOO 
is  input  breakl  returns  (EVAL  FOO). 
If  .QUIT  is  input,  it  performs 
(ERROR  FN),  If  EVAL  is  input,  it 
evaluates  fn.  If  a  normal  exit  Is 
subsequently  achieved  via  the  STOP 
command,  breakl  does  not  reevaluate 
fn,  but  uses  the  value  obtained  toy 
the  EVAL  command .  The  EVAL 
feature  is  useful  for  evaluating  a 
broken  function  without  "letting  go" 
of  the  break,  e.g.,  to  examine  tf-ie 
effect  of  executing  a  broken  fume* 
tion.  If  OK  is  input,  a  normal 
return  is  made  without  printing  the 
value  of  the  function.  Any  other 
input  to  breakl  is  evaluated,  and 
its  value  printed.  This  function 
uses  *2i  to  do  part  of  its  work. 
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Arithmetic  Functions  (all  arguments  must  be  numbers) 


greaterp[x;y] 

T  If  x  >  y; 

SUBR 

NIL  otherwise 

lessp[x;y] 

T  If  x  <  y; 

EXPR 

NIL  otherwise 

zeropEx] 

T  If  x  is  zero; 

EXPR 

NIL  otherwise 

ralnuspEx] 

T  if  x  is  negative; 

EXPR 

NIL  otherwise 

numberp[x] 

T  If  x  is  a  number; 

SUBR 

NIL  otherwise 

addl(x] 

x  +  1 

EXPR 

subl(x] 

x  -  1 

EXPR 

plus(x;yj 

x  +  y  (This  PSUBR 

PSUBR 


number  of  arguments.) 


minusEx] 

SUBR 


-  x 


timesExjy] 

PSUBR 


product  of  x  end  y  (Thic*  FSUBR 
may  have  any  number  of 
arguments . ) 
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quotient [x;y] 
StJBR 

difference [x;y] 
EXPR 


remainder [x;y] 
EXPR 


divide[x;y] 

SUBR 


greatest  integer  in  quotient  x/y 

This  function  has  for  its  value  the 
algebraic  difference  between  its 
arguments . 

This  function  computes  the  number 
theoretic  remainder  for  fixed-point 
numbers . 

This  function  yields  a  dotted  pair 
whose  first  member  is  quotient [x;y] 
and  whose  second  member  is  remainder 
[x;yj.  Remainder  is  defined  in  terms 
of  divide. 
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Following  is  a  list  of  all  atoms,  with  AFVAL’b  (per-? 
manent  values)  in  the  basic  system, and  their  values. 


blank 

space 

space 

3pace 

tab 

tab 

cornea 

, 

eqsign 

s 

xeqs 

s 

f 

nil 

nil 

nil 

period 

• 

plus 

+ 

lpar 

( 

rpar 

) 

slash 

/ 

i 

t 

t 

t 

qmark 

e\ 

xdol 

i 

xsqu 

1 

xdr 

l? 

xltr 

c 

xrbr 

] 

xarr 

uparr 

t 

colon 

• 

• 

xgreater 

> 

xlesser 

< 

xnum 

# 

xper 

% 

x?mp 

& 

xat 

9 
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SECTION  IV. 


LISTINGS  OP  S-EXPRESSIONS  OF  EXPR’S  AND  FEXPR*S 


(prog  nil 
(cond 

((null  (fntvp  (quote  putdq)))  (putd  (print  (quote  putdq)) 
(quote  (nlamda  (x)  (prog2 

(putd  (car  x)  (cadr  x)) 

(car  x))))))) 

(return  (putdq  load  (lambda  (x)  (prog  (xx  yy  22) 

'clearbuf ) 

(setq  22  (typein  nil)) 

11  (cond 

((equal  (setq  xx  (read))  (quote  stop))  (return  (prog2 
(clearbuf) 

(typein  22))))) 

(setq  xx  (eval  xx)) 

(cond 

to'SiiSflSS 
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(putdq  define 

(lambda  (x)  (cond 
((null  x)  nil) 

(t  (cons  ((lambda  (y)  (prog2 
(putd  (car  y)  (cond 

((null  (cddr  y))  (cadr  y)) 

(t  (cons  (quote  lambda)  (car  y))))) 
(car  y))) 

(car  x))  (define  (cdr  x) )))))) 

(putdq  defineq 

(nlamda  (x)  (define  x) ) ) 


(add 

(lambda  (x  y  z)  (prog  nil 
loop  (cond 

((null  (cdr  x))  (rplacd  x  (list 

y 

(list 

z)))) 

((equal  (cadr  x)  y)  (rplaca  (cddr  x)  (append 

(caddr  x)  (list 

z)))) 

((setq  x  (cddr  x))  (zo  loop))) 

(return  y)))) 


(addl 

(lambda  (x)  (plus 

1») 

(append 

(lambda  (x  y)  (cond 
{(null  x)  y) 

(t  (cons  (car  x)  (append  (cdr  x)  y)))))) 
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(assoc 

(lambda  (xsas  ysas)  (cond 
((null  ysas;  nil) 

((equal  (caar  ysas)  xsas)  (car  ysas)) 

(t  (assoc  xsas  (cdr  ysas)))))) 

(attach 

(lambda  (x  y)  (rplaca  (rplacd  y  (cons  (car  y)  (cdr 

x))) 

(copy 

(lambda  (x)  (cond 
((null  x)  nil) 

((atom  x)  x) 

(t  (cons  (copy  (car  x) )  (copy  (cdr  x) )))))) 
(deflist 

(lambda  (1  ind)  (prog  nil 
loop  (cond 

((null  1)  (return  nil))) 

(put  (caar  1)  ind  (cadar  lj) 

(setq  1  (cdr  1)) 

(go  loop)))) 


(difference 

(lambda  (x  y)  (plus 
x 

(minus  y)))) 


(e 

(nlamda  (xeeee)  (eval  xeeee))) 

(ersetq 

(nlamda  (ersetx)  (errorset  (car  ersetx)  t))) 
(set 

(lambda  (x  y)  (cond 
((null  x)  nil) 

((equal  (car  x)  y)  (cadr  x)) 

(t  (get  (cdr  x)  y))))) 


(getp 

(lambda  (x  y)  (prog  (z) 

(setq  z  (cdr  x)) 
loop  ( cond 

((null  z)  (return  nil)) 

((eq  (car  z)  y)  (return  (cadr  z)))) 
(setq  z  (cddr  z); 

(go  loop  ))) 


(intersection 

(lambda  (x  y)  (cond 
((null  x)  nil) 

((member  (car  x)  y)  (cons  (car  x)  (intersection 
(cdr  x)  y))) 

(t  (intersection  (cdr  x)  y ) ) ) ) ) 

(last 

(lambda  (x)  (prog  (xx) 

1  ( cond 

((atom  x)  (return  xx))) 

(setq  xx  x) 

(setq  x  (cdr  x) ) 

(go  1)))) 


(leone 

(lambda 


(x  p)  (prog  (xx) 

(return  (cond 
((null  x)  p) 

((cdr  (setq  xx  (last  x)))  (error  (list 
(quote  leone) 
x))) 

(null  p)  (cons  x  xx)) 

(null  (car  p))  (rplaca  (rplacd  p  xx)  x)) 
t  (prog2 

(rplacd  (cdr  d)  x) 

(rplacd  p  xx)))))))) 


( length 

(lambda  (x)  (prog  (n) 

(setq  n  ()) 

1  ( cond 

((atom  x)  (return  n))) 
(setq  x  (cdr  x)) 

(setq  n  (add!  n)) 

(go  1)))) 


(lessp 

(lambda  (x  y)  (cond 

S( equal  x  y)  ail) 
(greaterp  x  y)  nil) 
t  t)))) 
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(map 

(lambda  (mapx  mapf)  (cond 
( (null  mapx)  nil) 

(t  (prog2 

(mapf  mapx) 

(map  (cdr  mapx)  mapf)))))) 


(mapc 

(lambda  (mapcx  mapcf}  (cond 
((null  mapcx)  nil) 

(t  (prog2 

(mapcf  (car  mapcx)) 

(mapc  (cdr  mapcx)  mapcf)))))) 


(mapcar 

(lambda  (mpcrx  mpcrf)  (cond 
((null  mpcrx)  nil) 

(t  (cons  (mpcrf  (car  mpcrx))  (mapcar  (cdr  mpcrx)  mpcrf 

)))))) 


(mapcon 

(lambda  (mpcnx  rapcnf )  (cond 
((null  mpcnx)  nil) 

(t  (nconc  (npcnf  mpcnx)  (mapcon  (cdr  mpcnx)  rapcnf 


(mapconc 

(lambda  (mpcncx  mpcncf)  (cond 
((null  mpcncx)  nil) 

(t  (nconc  (mpcncf  (car  mpcncx))  (mapconc  (cdr  mpcncx)  mpcncf 

)))))) 


(maplist 

(lambda  (mplstx  mplstf)  (cond 
((null  mplstx)  nil) 

(t  (cons  (mplstf  mplstx)  (maplist  (cdr  mplstx)  mplstf 


(mlnusp 

(lambda  (x)  (greaterp  Ox))) 

(nill 

(nlamda  (xnil)  nil)) 

(nlsetq 

(nlamda  (nlsetx)  (errorset  (car  nlsetx)  nil))) 
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(not 


(lambda  (x) 
((null  x) 
(t  nil))) 


(cond 

t) 

) 


(prop  v  , 

(lambda  (x  y  u)  (cond 
0  (u) ) 


( (null  x)  (u) ) 

(equal  (car  x)  y)  (cdr  x) ) 
(t  (prop  (cdr  x)  y  u))))) 


(punch 

(lambda  (x)  (prog  (y  z) 

Isetq  y  (punchon  t)) 
setq  z  (typeout  nil)) 
print  x) 
punchon  y) 
typeout  z) 
return  x)))) 


(put 

(lambda  (x  y  z)  (prog  nil 

loop  (cond  (rplacd 


z) ) ) 

((equal  (cadr  x)  y)  (rplaca  (eddr  x)  z)) 
((setq  x  (cddr  x))  (go  loop))) 

(return  y)))) 


(rdflx  ;  . 

(lambda  (x)  (prog  (xx  yy) 

(setq  yy  (typein  t)) 

(cond 

(x  (go  rl))) 

(setq  xx  (ersetq  (read))) 

(go  r2) 

((setq  xx  (nlsetq  (read)))  (setq  xx  (car 


))) 


((print  x)  (go  rl))) 
r2  (typein  yy) 

(return  xx) )) ) 
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( remainder 

1  (lambda  {x  y)  (cdr  (divide  x  y)))) 

(remove 

(lambda  (a  x)  (cond 
((null  x)  nil) 

((equal  a  (car  x))  (remove  a  (cdr  x))i 
(t  (cons  (car  x)  (remove  a  (cdr  x) )))))) 


(remprop 

(lambda  (x  y)  (prog  nil 
loop  (cond 

((null  (cdr  x))  (return  y)) 

((equal  (cadr  x)  y)  (rplacd  x  (cdddr  x))) 
(t  (seta  x  (cdr  x)))) 

(go  loop)))) 


(reverse 

(lambda  (x)  (prog  (u) 
loop  ( cond 

((null  x)  (return  u) 
(setq  u  (cons  (car  x)  u 
(setq  x  (cdr  x)) 

(go  loop)))) 


(sassoc 

(lambda  (xsas  ysas  usas)  (cond 
((null  ysas)  (usas)) 

((equal  (caar  ysas)  xsas)  (car 
(t  (sassoc  xsas  (cdr  ysas)  usas 


) 


(setnq 

[nlamda  (xsetnq) 
))>) 


(setn  (car  xsetnq)  (eval  (cadr  xsetnq) 


( setqq 

(nlamda  (x)  (set  (car  x)  (cadr  x) ) ) ) 


( soundexin 

(nlamda  (x)  (mapcar  x  (quote  (lambda 
ysdx)  (quote  name)  ysdx)))))) 

(soundexout  .. 

(lambda  (x)  (getp  x  (quote  name)))) 


(subl 

(lambda  (x)  (plus 


(ysdx)  (put  (soundex 


(sub2 

(lambda  (a  z)  (cond 
((null  a)  z) 

((equal  (caar  a)  z)  (cdar  a)) 

(t  (sub2  (cdr  a)  z))))) 

(sublls 

(lambda  (a  y)  (cond 
((atom  y)  (sub2  a  y)) 

(t  (cons  (sublls  a  (car  y))  (sublls  a  (cdr  y))));)) 


(subst 

(lambda  (x  y  z]  (cond 
((equal  y  z}  x) 

((atom  z)  z) 

(t  (cons  (subst  x  y  (car  z))  (subst  x  y  (cdr  z) )))))) 


(tccr  - 

(-ambda  (x  p)  (prog  (xx) 

(return  (cond 

a  null  p)  (cons  (setq  xx  (cons  x  nil))  xx) ) 
null  (car  p))  (prog2 


(rplacd  (cons  x 


(rplaca  p  (cons  x  nil)) 

(rplacd  p  (car  p)))) 

(t  (rplacd  p  (cdr  (rplacd  (cdr  p) 
(cdr  p))  nil)))))));)) 


(time 

(lambda  (x  n)  (prog  (y  m  c  cl) 

(setq  m  nj 
(setq  c  (clock)) 
tl  (cond 

((zerop  m)  (setq  cl  (clock))) 
(t  (progn 

(setq  y  (eval  x)) 

(setq  m  (subl  m)) 

(go  tl)))) 

(setq  m  (divide  (plus 
cl 

(minus  c))  n)) 

(prinl  (car  m) ) 

(prinl  period) 

(prinl  (quotient  (times 
(cdr  m) 

10)  n)) 
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(prinl  blank) 

(print  (quote  seconds)) 

( return  y)))) 

(union 

(lambda  (x  y)  (cond 
((null  x)  y) 

{(member  (car  x)  y)  (union  (cdr 
(t  (cons  (car  x)  (union  (cdr  x) 

(zerop 

(lambda  (x)  (equal  x  0))) 
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x  >» 


(break 

(lambda  (fn  when  what)  (prog  (xx  yy  zz) 

(cond 

((null  (setq  xx  (getd  fn)))  (return  (prog2 
(putd  fn  (list 

!  quote  nlamda) 
quote  ( 1) ) 
list 

(quote  break!) 

nil 

when 

(setq  xx  (list 

(quote  (undefined)))) 
what) )) 

xx) ) ) 

((eq  (setq  yy  (fntyp  fn))  (quote  fsubr))  (return 

(cons  fn  (quote  (is  an  fsubr))))) 

((null  (eq  yy  (quote  subr)))  (go  b2))) 

(setq  yy  (rdflx  (print  (cons  fn  (quote  (is  a  subr 

need  args))))j)  N 

(putd  (setq  zz  (gensym) )  xx) 

(setq  xx  (putd  fn  (list 
(quote  lambda) 

yy 

(cons  zz  yy)))) 

b2  (cond  . .  .  , 

((eq  (caaddr  xx)  (quote  break!))  (setq  xx  ( 


List 


(car  xx) 

(cadr  xx) 

(cadr  (caddr  xx)))))) 
(putd  fn  (list 
(car  xx) 

(cadr  xx) 

(list 

(quote  breakl) 

(caddr  xx) 
when 
(list 
fn) 
what 
(return  fn 


I) 


(unbreak 

(lambda  (fn)  (prog  (xx  yy) 

(return  (cond 

((null  (setq  xx  (getd  fn)))  (cons  fn  (quote 
(not  a  function)))) 

( (and 
(or 

(eq  (setq  yy  (fntyp  fn))  (quote  expr) 

(eq  yy  (quote  fexpr))) 

(eq  (caaddr  xx)  (quote  breakl)))  (prog2 
(putd  fn  (list 

Scar  xx) 
cadr  xx) 

cadr  (cad dr  xx)))) 

fn)) 

(t  (cons  fn  (quote  (not  broken))))))))) 


(breaklist 

(nlamda  (x)  (maplist  x  (quote  (lambda  (x)  (break  (car  x 
)  t  nil)))))) 

(unbreaklist 

(nlamda  (x)  (maplist  x  (quote  (lambda  (x)  (unbreak  (car 

x))))))) 

(breakprog 

(lambda  (bpx  bpy)  (maplist  bpy  (quote  (lambda  (z)  (breakat 
bpx  (car  z)  t  nil)))))) 

(unbreakprog 

(lambda  (x)  (prog  (xx) 

(setq  xx  (bpl  x)) 
ul  (cond 

((eq  (caadr  xx)  (quote  breakl))  (rplacd  xx 

(cddr  xx))) 

((setq  xx  (cdr  xx))  (go  ul)) 

(t  (return  nil))) 

(go  ul)))) 
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(breakat 

(lambda 

bl 


(unbreakat 

(lambda 

ul 

))  (list 


(fn  where  when  what)  (prog  (a) 

(setq  a  (bpl  fn)) 

(cond 

((equal  (car  a)  where)  (return  (prog2 
(rplacd  a  (cons  (list 
(quote  breakl) 
nil 
when 
(list 
fn 

(quote  at) 
where) 

what}  (cdr  a))) 
where))) 

((seta  a  (cdr  a))  (go  bl))) 

(return  (cons  where  (quote  (not  found))))))) 


(fn  where)  (prog  (a) 

(setq  a  (bpl  fn)) 

(cond 

( >aual  (car  a)  where)  (return  (cond 
({eq  (caadr  a)  (quote  breakl))  (prog2 
(rplacd  a  (cddr  a)) 
where) ) 

(t  (cor  s  fn  (append  (quote  (not  broken  at 
where))))))) 

((setq  a  (cdr  a))  (go  ul))) 

(return  (cons  where  (quote  (not  found) )))))) 


(breakl 

(nlamda  {brklx)  (prog  (brklxx  brklyy  brklzz) 

{cond 

((null  (setq  brklxx  (eval  (cadi  brklx))))  ( 
return  (eval  (car  brklx) ) ) ) 

((null  (equal  brklxx  (Quote  (nil))))  (go  bO 


))) 

))) 

)))) 


(print  (append  (quote  (crack  In))  (caddr  brklx 


(cond 


I 

((cadddr  brklx)  (print  (eval  (cadddr  brklx) 


(go  b3) 

bO  (setq  brklyy  (print  (append  (quote  (break  in)) 

(caddr  brklx)))) 

(cond 

( (cadddr  brklx)  (print  (eval  (cadddr  brklx) 

)))) 

bl  (cond 

((eq  (setq  brklxx  (rdf lx  brklyy))  (quote  quit 
))  (error  (caddr  brklx))) 

((eq  brklxx  (quote  stop))  (go  b3) ) 

[eq  brklxx  (quote  return))  (go  b2)) 

'eq  brklxx  (quote  eval))  nil) 

’eq  brklxx  (quote  ok))  (go  b3)) 
and 

(ersetq  (setq  brklxx  (eval  brklxx))) 

(nlsetq  (print  brklxx)))  (go  bl)) 

((print  brklyy)  (go  bl))) 

(cond 

((null  (setq  brklzz  (ersetq  (eval  (car  brklx 
)))))  (print  brklyy)) 

((print  (append  (caddr  brklx)  (quote  (evaluated 
))))  (set  (caaddr  brklx)  (car  brklzz)))) 

(go  bl) 
b2  ( cond 

( (and 

(setq  brklzz  (rdf lx  nil)) 

(setq  brklzz  (ersetq  (eval  (car  brklzz)) 

)))  (go  b4) ) 

((print  brklyy)  (go  bl))) 

(cond 
((or 

brklzz  ,  ,  . . . 

(setq  brklzz  (ersetq  (eval  (car  brklx))) 


b3 


))  nil) 
b4 

))) 

brklx))) 


((print  brklyy)  (go  bl))) 

( cond 

((eq  brklxx  (quote  ok))  (print  (caddr  brklx 
( (prog2 

(print  (append  (quote  (value  of))  (caddr 


(null  (nlsetq  (print  (car  brklzz)))))  (print 

(quote  ok))))  .  . .  x 

(return  (car  trklzz)}))) 


(bpl 

(lambda  (x)  (prog  (xx) 

(return  (cond 
( (and 
(or 

(eq  (setq  xx  (fntyp  xj)  (quote  expr)) 

{eq  xx  (quote  fexpr))) 

)))  (caddr  xx))  (*q  (caaddr  (setq  **  (setd  x>))  ^ote  Pr*5 
))))))  ^  (©rror  (cons  x  (quote  (not  a  program)))) 
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(prettydef  /  . 

(lambda  (x)  (prog  (a) 

(setq  a  (punchon  tj) 

(prlnl  (quote  “(")) 

(print  (quote  defineq)) 

punchon  a) 
return  x)))) 

^Pr(lambdan(l)  (map  1  (quote  (lambc'a  ( j)  (prog  (tl) 

{terprl) 

(prlnl  lpar) 

(print  (car  j)) 

(prlntdef  (cond 
((getd  (car  j))) 

(t  (quote  undefined}))) 

(prim  roar) 

(terprl)}))))) 

(prlntdef  „ . 

(lambda  (e)  (prog  (l  lunlt  lunltl) 

(setnq  1  l) 

(setq  limit  (quote  ■  ")) 

(setq  lunltl  3) 

(prlnl  lunlt) 

{ superprint  e) 

(return  ml)))) 

(superprlnt 

^lambda  (e)  (cond 

((1^UCOe1quote  (»«  ■  ■  »(*  ")» 

II 

n  n  n  «,«)))  (prlnl  (pack  (list 
(quote  """) 

(quote  ""*))))) 

(t  (prlnl  e)))) 

(t  (prog  (ep  m) 

(setq  ep  e) 

(prlnl  lpar) 
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))) 


a 


Pk 

pd 


Pi 

pm 


PJ 

PP 


py 


(cond 

((member  (car  ep)  (quote  (and 
or 

select 

selectq 

list 

plus 

times 

cond 

prog2 

progn)))  (go  pi)) 

((eq  (car  ep)  (quote  prog))  (go  pp) ) 
((atom  (car  ep))  nil) 

(eq  (caar  ep)  (quote  lambda)) 

(eq  (caar  ep)  (quote  nlamda)))  (go  pi 


I  (superprint  (car  ep)) 

(setq  ep  (cdr  ep) ) 

( cond 

((null  ep)  (return  (prlnl  rpar))) 
( (atom  ep}  (go  pd) ) ) 
prlnl  blank) 
go  a) 

setnq  1  (subl  1)) 
prinl  blank) 
prlnl  period) 
prlnl  blank) 
prlnl  ep) 

return  (prlnl  rpar)) 
setnq  1  (addl  1)) 
superprint  (car  ep)) 
setq  ep  (cdr  ep) ) 
cond 

((null  ep)  (go  pj)) 

((atom  ep)  (go  pk))) 

1  endline) 

superprint  (car  ep)) 
go  pm) 

setnq  1  (subl  i)) 
return  (prinl  rpar) ) 
prinl  (car  ep)) 
setq  ep  (cdr  ep) ) 
setnq  1  (addl  i)J 
cond 

((null  ep)  (go  pj)) 

((atom  ep)  (go  pk))) 

(prinl  blank) 
j superprint  (car  ep) ) 

(setq  ep  (cdr  ep)) 

(cond 
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*-v 


({null  ep)  (go  pj)) 

((atom  ep)  (go  ok))) 

(endline) 

(cond 

((atom  (car  ep))  (go  pz))) 

(prinl  iunlfc) 

(prinl  lunit) 

(setnq  i  (plus 
i 

2)) 

(superprint  (car  ep)) 

(setnq  i  (plus 
i 

,  ~2)) 

(go  py)  . . 

(prinl  (car  ep)) 

(setnq  m  (plus 
iunitl 
iunitl 

(minus  (length  (unpack  (car  ep)))))) 
(setnq  m  (subl  m)) 


(prinl  blank) 

(cond 

( (null  (or 
(zerop  ra) 

(mi nus p  m))) 
(setq  ep  (cdr  ep)) 
(cond 

*  *  « 


(go  aa))) 


((null  ep)  (go  pj)) 

( (atom  ep)  (gopk)) 

((atom  (car  ep);  (go  pz))) 
(go  px)))))) 


(endline 

(lambda  nil  (prog  (J) 
(setnq  .1  i) 
(terpri) 


( cond  „  .  . 

((zerop  J)  (return  nil)) 
((rainusp  J)  (error  i))) 
(prinl  iunit) 

(setnq  i  (subl  j)) 

(go  a)) )) 
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(trace 

(lambda  (x)  (prog  (a  b  o  g) 

(setq  a  x) 
loop  (cond 

((null  x)  (return  a))) 

isetq  b  (getd  (setq  c  (car  x)))) 
setq  x  (car  x)) 
cond 

( (null  b)  (progn 

(print  (cons  c  (quote  (undefined)))) 
(go  loop))} 

((tracp  c  b)  (progn 

(print  (cons  c  (quote  (was  traced)))) 
(go  loop)))) 

(putd  (setq  g  (gensym))  b) 

(putd  c  (list 

!  quote  nlamda) 
quote  (qlqq)) 
list 

(quote  tracl) 

(list 

(quote  quote) 

,  °) 

(list 

(quote  quote) 

e) 

(quote  qlqq) ) ) ) 

(go  loop)))) 


(untrace 

(lambda  (x)  (prog  (a  b  c  g) 
(set  (quote  a)  x) 


loop 


b)))) 


(cond 

((null  x)  (return  a))) 

(set  (quote  g)  (car  x)| 

(set  (quote  x)  (cdr  x}) 

(cond 

((tracp  g  (set  (quote  b)  (getd  g)))  (progn 
(set  (auote  b)  (cdaddr  b)) 

(putd  (cadar  b)  (getd  vset  (quote  c)  (cadadr 

(re mob  c))) 

(t  (print  (cons  g  (quote  (not  traced)))))) 

(go  loop)))) 


(tracp 

(lambda  (x  y)  (and 

(eq  (fntyp  x)  (quote  fexpr) 
(eq  (caaddr  y)  (quote  tracl 


(tracl  .  .  ,  ^  . 

(lambda  (ctrac  gtrac  xtrac)  (prog  (atrac) 

(print  (cons  ctrac  (quote  (entered  witn)))) 

(set  (quote  xtrac)  (cond 

( (eq  (fntyp  gtrac)  (quote  fsubr))  (print  xtrac 

^  ((eq  (fntyp  gtrac)  (quote  fexpr))  (print  xtrac 

^  (t  (evalprint  xtrac)))) 

(set  (quote  atrac)  (eval  (cons  gtrac  xtrac))) 
(print  (cons  ctrac  (quote  (has  value)))) 

[return  (print  atrac))))) 


(evalprint 

(lambda  (xvalp)  (prog  (avalp) 

loop  (cond  , 

( (null  xvalp)  (return  avalp) )) 

(set  (quote  avaxp)  (nnconc  avalp  (list 
(list 

(quote  quote)  ....... 

(print  (eval  (car  xvalp) )))))) 
(set  (quote  xvalp)  (cdr  xvalp)) 

(go  loop)))) 


(editf 

(lambda  (x)  (prog2 

(^utd  x  (edlte  (getd  x))) 

(editv 

(lambda  (x)  (prog2 

(aet  x  (edit a  (aval  x) ) ) 

*))) 

(edltp 

(lambda  (x)  (prog2 

(r^lacd  x  (edit©  (cdr  x))) 

(edlte 

(lambda  (x)  (prog  (1  y  c) 

(typeln  t) 

(set^l  (Hat 

(print  (quote  edit)) 
a  (cond 

itnull  (ersetq  (setq  c  (read))))  (go  a)) 
(null  c)  (return  (car  (lastr  l)))) 
(numberp  c)  (edit IT  c) ) 

(eq  c  (quote  copy))  (eetq  y  (copy  1))) 
(eq  c  (quote  restore))  (setq  1  (cond 

Rii)» 

((eq  c  (quote  p)}  (edlt3f  (quote  (p  0)))) 
((atom  c)  (print  qaark)) 

( (numberp  (car  c)T  (edit2f  c)) 
t  (edit3f  c))) 

(go  a)))) 


(edit If 

(lambda  (c)  (cond 
((eq  c  0)  (con 


((eq  c  0)  (cond 

((null  (cdr  1))  (print  qaark)) 

(t  (setq  1  (cdr  1))))) 

((great erp  c  0)  (cond 

({greaterp  c  (length  (car  1)})  (print  qmark}) 
(t  (setq  1  (cona  (car  (nth  (car  1)  c))  1))))) 
(t  (print  qaark))))) 
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(edlt2f 

(lambda  (c)  (cond 

((greaterp  (car  c)  0}  (cond 

((greaterp  (car  c)  (length  (car  1)))  (print  qmark 

(t  (rplaca  1  (edltSaf  (subl  (car  c))  (car  1)  (cdr 
c)  nil))))) 

((or 

(eq  (car  c)  0) 

(null  (cdr  c)) 

(greaterp  (minus  (car  c))  (length  (car  1))))  (print 

qmark)) 

(t  (rplaca  1  (edl t2af  (subl  (minus  (car  c)))  (car  1) 
(cdr  c)  t)])))) 

(edit2af 

(lambda  (n  x  r  d)  (prog2 
(cond 

((null  (eq  n  0))  (rplacd  (nth  x  n)  (nconc  r  (cond 
(d  (cdr  (nth  x  n))) 

(t  (cddr  (nth  x  n})))))) 

(d  (attach  (car  r)  x) 

(r  (rplaca  x  (car  rn) 

((rplaca  x  (cadr  x))  (rplacd  x  (cddr  x)))) 
x)') 


(edlt3f 

(lambda  (x)  (cond 

((ea  (car  x)  (quote  l))  (edit2f  (list 
(cadr  x) 

(eval  (caddr  x))))) 

)))))  ^C<ir  e"  (®r8et<*  (P***1 

((eq  (car  x)  (quote  n))  (nconc  (car 
((eq  (car  x)  (quote  p))  (bpnt  (cdr  x 
((member  (car  x)  (quote  (rl  ro  11  lo 
x  (quote  ((car  1))))  t)) 

(t  (print  qmark)/})) 


[eval  (caddr  x))))) 
l  (car  x)  (quote  e)) 


(ersetq  (print  (eval  (cadr  x 

(nconc  (car  1)  (cdr  x))) 
(bpnt  (cdr  xm 

))}  \*r 


rorset  (nconc 
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(bpnt 

(lambda  (x)  (prog  (y  n) 

(cond 

((zerop  (car  x))  (setq  y  (car  1))| 


)) 


bl 


((greaterp  (car  x)  (length  (car  1)))  (go  bl 

((minusp  (car  x))  (go  bl)) 

(t  (setq  y  (car  (nth  (car  1)  (car  x)))))) 
(cond 

* (null  (cdr  x) )  (setq  n  2) ) 

(null  (numberp  (cadr  x)))  (go  bl)) 

(minusp  (cadr  x))  (go  bl)) 

[t  (setq  n  (cadr  x)))) 

(return  (cond 

((nlsetq  (print  (leveln  y  n)))  nil) 

(t  (print  (quote  edit))))) 

(return  (print  qmark))))) 


(leveln 

(lambda  (x  n)  (cond 
((atom  x)  x) 

((zerop  n)  (quote  A)) 

(t  (mapcar  x  (quote  (lambda  (x) 

))»)} 


(leveln  x  (subl  n))) 


(nth 

(lambda  (x  n)  (cond 
((atom  x)  nil) 

((greaterp  n  l)  (nth  (cdr  x)  (subl  n))) 

(tx)))) 


(lastr 

(lambda  (x)  (cond 

((null  x)  (error  (quote  (null  list)))) 
((null  (cdr  x))  x) 

(t  (lastr  (cdr  x)))))) 


I 


(ri 

(lambda  (m  n  x)  (prog  (a  bj 
(setq  a  (nth  x  ra)) 

(setq  b  (nth  (car  a)  n) ) 

(cond 

((or 

(null  a} 

(null  b))  (return  (print  qraark)))) 
(rplaod  a  (nconc  (cdr  b)  (cdr  r))) 
(rplacd  b  nil)))) 


8 


(ro 

(lambda  (n  x)  (prog  (a) 

(setq  a  (nth  x  n) ) 

(cond 

((or 

(null  a) 

(atom  (car  a)))  (return  (print  qmark)))) 
(rplacd  (lastr  (car  a))  (cdr  a)) 

(rplacd  e  nil)))) 


I 

I 

I 


(11 

(lambda  (n  x)  (prog  (a) 

(setq  a  (nth  x  n)) 

(cond 

((null  a)  (return  (print  qmark)))) 
(rplaca  a  (cons  (car  a)  (cdr  a))) 
(rplacd  a  nil)))) 


(lo 

(lambda  (n  x)  (prog  (a) 

(setq  a  (nth  x  n)) 

(cond 

((or 

(null  a) 

(atom  (car  a)))  (return  (print  qmark)))) 
(rplacd  a  jcdar  an 
(rplaca  a  (caar  a))))) 


K 
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APPENDIX  A 


OPERATING  THE  BBN-LISP  SYSTEM 


A 


APPENDIX  A .1 


LISP  LOADER 

The  LISP  loader  allows  one  to  load  several  drum  fields  from 
either  paper  tape  or  magnetic  tape.  In  addition,  there  is 
provision  for  transferring  a  system  from  drum  to  mag  tape. 

A  complete  system  is  treated  as  a  file  on  tape  (each  core  load 
is  one  block  of  the  file)  and  all  tape  commands  are  in  terms 
of  files  rather  than  blocks.  Teletype  should  be  connected 
to  channel  0  of  the  630  scanner. 

Instructions  for  Loading  System  Programs  onto  the  Drum 

The  LISP  loader  can  be  used  for  setting  up  the  drum  fields  of 
the  system  programs.  Including  itself.  To  do  this: 

1.  Read  into  core  1  the  system  program  to  be  placed 
on  a  drum  field. 

2.  Read  into  core  1  the  program  at  location  0  for 
that  drum  field. 

3.  Read  into  core  0  the  LISP  loader. 

4 .  Type :  nd 

where  n  is  the  octal  number  cf  the  drum  field  onto 
which  to  dump  core  1. 

Instructions  for  Loading  LISP  with  the  Loader 

1.  Load  mag  cape  of  system  on  tape  drive  and  set  it 
to  automatic  on  unit  i. 
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2.  Read  into  core  0  the  paper  tape  of  the  LISP  loader. 
The  mag  tape  will  be  rewound  and  the  LISP  loader  will  be 
waiting  for  typein,  (The  LISP  loader  starts  at  3^0.)' 

3.  Type:  nr 

where  n  is  the  octal  number  of  the  file  to  be  read  in. 

26  drum  fields  will  be  read  off  of  the  mag  tape  onto 
the  drum  and  the  typewriter  will  type  out  n  <  m  where  n 
is  the  first  block  number  read  (starting  with  0)  and  m 
is  the  last  +1  block  number  read. 

4 .  Type :  1 

This  will  take  the  user  to  LISP. 


Instructions  for  Writing  LISP  onto  Mag  Tape  with  the  Loader- 

1.  Prom  LISP  call  the  drum  field  with  the  LISP  loader, 
FIELD  (25Q),  or  read  Into  core  0  the  paper  tape  of  the 
LISP  loader. 

2 .  Type :  nw 

where  n  is  the  octal  number  of  the  file  that  you  wish 
to  write. 
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List  of 

1 

e 

nr 

nw 

nd 

nc 

np 

ng 

nu 

nb 


nf 

o 

ns 


Commands  Available  in  the  LISP  Loader  (n  is  an  octal  number) 
calls  LISP 

calls  the  editor  on  field  2 6 

reads  onto  the  drum  from  mag  tape  file  n 

writes  current  drum  system  on  mag  tape  file  n 

dumps  core  1  onto  relative  drum  field  n 

reads  relative  drum  field  n  into  core  1 

preserves  core  0  on  relative  drum  field  n 

£ets  registers  0-177  on  relative  drum 
field  n  and  transfers  to  0 

selects  the  mag  tape  unit  to  be  used. 

Starting  the  program  at  300  automatically 
selects  unit  1. 

sets  the  base  field  on  the  drum  to  n,  i.e., 
drum  loading  will  begin  on  field  n  from  either 
core  or  mag  tape.  The  base  is  initially  set 
to  1.  The  first  relative  field  n  is  1,  not  0. 
Relative  field  n  is  absolute  field 
"n  -  1  +  base". 

sets  the  number  of  fields  in  a  file.  This 
value  is  Initially  set  to  26  octal. 

rewind  (origin) 

jjpace  tape  n  files  forward  (or  backward  If  n 
is  negative).  If  n  is  zero  the  tape  will  be 
moved  to  the  beginning  of  the  current  file. 
Spacing  backwards  has  been  known  to  cause 
trouble. 
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Error  Printouts 

nOf  tried  to  reference  file  0  or  drum  field  0 

(either  absolute  or  relative) 

fie  file  error  —  while  searching  for  a  designated 

file,  a  file  longer  than  64  blocks  was  en¬ 
countered  . 

una  tape  unit  not  available.  If  this  is  the 

first  thing  that  happens  it  is  because  the 
program  has  attempted  to  rewind  unit  1  and 
cannot  for  some  reason. 

prac  n  bad  parity  or  missed  character  on  reading  or 

checking  tape  block  n 

nch  saw  no  characters  for  6  inches 

ept  saw  tape  end  point 

wcf  n  write  check  failure  mag  tape  block  n 

drf  n  drum  read  fail,  absolute  field  n 

nem  no  end  mark  has  been  entered 

dwe  drum  write  error 
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APPENDIX  A. 2 


USING  LISP  PROM  THE  COMPUTER  ROOM  TELETYPE 

To  use  LIS?  from  the  computer  room  teletype:  Connect  the 
teletype  to  channel  0  of  the  scanner  and  then  load  the  LISP 
system  as  described  In  Appendix  A.la  LISP  LOADER.  The  teletype 
will  carriage- return  and  be  waiting  for  input  into  evalquote . 

Manual  restart  should  never  be  used  as  there  are  no  known  ways 
to  cause  the  system  to  halt  or  crash  (if  either  does  occur, 
record  all  particulars  and  deliver  to  D.  Murphy).  Tht  following, 
however,  do  exist: 

start  202  reinitializes  all  sequence  break 

routines  and  restarts 

start  203  reinitializes  entire  system,  i.e., 

kills  everything  and  redefines  only 
initial  SUBR's  and  PSUBR's. 
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APPENDIX  A. 3 


USING  LISP  PROM  A  REMOTE  DATASET 

To  use  LISP  from  a  remote  dataset:  The  LISP  system  should  be 
loaded  and  running  as  described  In  Appendix  A.l,  LISP  LOADER. 
Them 


Set  the  channel  0  dataset  phone  to  "auto”  (the  channel  0 
phone  is  the  one  on  which  the  number  491-5120  appears). 


Prom  the  remote  dataset,  push  the  "tel"  button,  and  when 
the  dial  tone  is  heard  in  the  attached  receiver,  dial 
491-5120.  The  phone  in  the  computer  room  will  be  answered 
automatically,  and  a  tone  will  be  transmitted .  When  this 
tone  Is  heard,  the  "ORIG"  button  should  be  pressed , 
establishing  the  connection. 


Special  Codes  for  Control  (see  standard  chart  of  teletype  codes 

for  complete  set) 


Octal  Code  Character  Function 


rubout  deletes  the  line  being  typed  in 

types  out-  and  deletes  the  last 
character  typed  in 


break  key  causes  an  interrupt  followed  by  an 
untrace.  A  second  depression  of 


this  key  halts  the  untrace . 


Octal  Code 

Character 

Function 

204 

control  D 

HANQCJP,  wnen  transmitted  by  either 
computer  or  user,  causes  immediate 
hangup  on  both  ends 

207 

control  0 

Bell 

211 

control  I 

Horizontal  tab,  on  output  only, 
causes  carriage  to  be  moved  to 
next  predefined  tab  stop 

221 

control  Q 

reader  on:  starts  paper  tape 
reader  if  tape  is  loaded 

223 

control  S 

t 

reader  off:  when  appearing  on 
paper  tape'  only,  causes  reader  to 
stop  after  reading  next  character 
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APPENDIX  B 
INDEX  TO  FUNCTIONS 


name  of 
function 

add 

addl 

and 

append 

apply 

assoc 

atom 

attach 

break 

break 1 

breakat 

breaklist 

breakprog 

car,cdr,  (etc) 

character 

clearbuf 

cond 

cons 

copy 

define 

defiraq 

defllst 

difference 

disp 

dlsplls 

divide 

e 

edit* 


description 
section  IU,  page 

24 

33 
11 
11 

23 
21 

2 

12 

30 
32 

31 
31 
31 

1 

7 

6 

2 

1 

21 

14 

15 

24 

34 

17 

18 
34 
18 
26 


listing 

section  IV,  page 

2 

2 

2 

3 

3 

10 

13 

12 

11 

11 


3 

2 

2 

3 

3 


3 

20 


name  of 
function 

edltf 

editp 

edltv 

eq 

equal 

error 

error set 

ersetq 

eval 

evala 

feed 

field 

fntyp 

gcgag 

gensym 

get 

getd 

getp 

go 

greaterp 

intersection 

last 

leone 

length 

lessp 

leveln 

list 

load 

logand 

logor 

map 


13 

13 

13 

33 

29 

3 

15 

16 
16 
21 


5 


name  of 
function 

description 
section  III,  page 

listing 

sectionTT:  page 

mapc 

20 

5 

mapcar 

20 

5 

mapc on 

20 

5 

mapc one 

20 

5 

mapli8t 

21 

5 

member 

16 

minus 

33 

minusp 

33 

5 

nconc 

12 

nneone 

12 

nlsetq 

10 

5 

not 

2 

6 

nth 

25 

22 

null 

2 

numberp 

33 

obilst 

2 

or 

11 

pack 

16 

plus 

33 

prettydef 

13 

15 

pretty print 

13 

15 

prlnl 

4 

print 

4 

prog 

3 

prog 

7 

prog2 

T 

( 

progn 

7 

prop 

22 

6 

punch 

4 

6 

pun chon 

4 

put 

23 

6 
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name  of 
function 

description 
section  III,  page 

listing 

section  IV,  page 

putd 

9 

putdq 

9 

1 

quit 

10 

quote 

2 

quotient 

34 

ratom 

5 

rdflx 

11 

6 

read 

4 

readln 

6 

reclaim 

25 

remainder 

34 

7 

remob 

16 

ramove 

23 

7 

remprop 

23 

7 

return 

4 

reverse 

22 

7 

rplaca 

IT 

rplacd 

17 

sassoo 

21 

7 

select 

24 

selectq 

25 

set 

7 

setbrk 

5 

setn 

8 

setnq 

9 

7 

setq 

7 

setqq 

9 

7 

setsepr 

5 

sub.l 

33 

7 

sublis 

23 

8 

sub  st 

22 

3.1-4 

8 

I 

[ 

t 

r 

i 

i 


# 

4 


i 

i 

i 

i 


wpp" . *y 


name  of 
function 

description 
section  lXX,  page 

11 j ting 

section  XV, page 

tconc 

12 

8 

terpri 

4 

time 

?-5 

8 

times 

33 

trace 

19 

18 

tracp 

19 

19 

typein 

5 

typeout 

4 

unbreak 

30 

11 

unbreakat 

31 

12 

unbreak] ist 

31 

11 

unbreakprog 

32 

11 

union 

22 

9 

unpack 

16 

un trace 

19 

18 

zerop 

33 

9 
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